SAW.DAT[P11,LCS] - www.SailDart.org

perm filename SAW.DAT[P11,LCS] blob sn#363989 filedate 1978-06-27 generic text, type T, neo UTF8

SRT←12800;
INS 0 1; <  INSTRUMENT 1 
OSC P4 P3 B2 F2 P29;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!   
GEN 0 1 2 ,-.999 0  .999 511;< SAW 
GEN 0 1 3 ,-.999 0  .999 255 , -.999 511;< TRIANGLE    
GEN 0 1 4 ,-.999 0  .999 255 , -.999 511;< TRIANGLE    
GEN 0 1 5 ,-.999 0  .999 255 , -.999 511;< TRIANGLE    
GEN 0 1 6 ,-.999 0  .999 255 , -.999 511;< TRIANGLE    
GEN 0 1 7 ,-.999 0  .999 255 , -.999 511;< TRIANGLE    
   <GEN TYPE 1, F2  
INSTRUMENTS;   
SIMP 1 5  FREQ 3    
END; 
 
  < SAW  .SCR  --  RANDOM NUMBER=     1
 PLAY;
 SIMP      0.00     0.50 A       1500.0
;PRINT P1;< SIMP    1
 FINISH; < SAW  .SCR